Mission to McDonaldLand/Mission To McDonaldLand.iso/mcdon.dxr/00015_Script_15

Text File | 1998-10-25 | 4KB | 120 lines

on enterFrame
  global heading
  global move
  global updown
  global silly
  global nomore
  global restoration
  global castrestore
  global CStop

  set dice = random (50)
  if dice = 1 then set the member of sprite 6 = "bow"
  if dice = 2 then set the member of sprite 6 = "flex"

  if CStop = 1 then
    if the mouseH < the locH of sprite 30 then set the member of sprite 30 = "Left"
    if the mouseH > the locH of sprite 30 then set the member of sprite 30 = "Right"
    abort
  end if

  if silly = 1 then
    if the locH of sprite 30 < 100 or the locH of sprite 30 > 550 then
      set silly = 0
      set the member of sprite 30 = "Right"
    end if

    if the mouseH < the locH of sprite 30 then
      set the locH of sprite 30 = the locH of sprite 30 - 20
      set the member of sprite 30 = "RocketL"
    end if
    if the mouseH > the locH of sprite 30 then
      set the locH of sprite 30 = the locH of sprite 30 + 20
      set the member of sprite 30 = "RocketR"
    end if
    if the mouseV < the locV of sprite 30 then set the locV of sprite 30 = the locV of sprite 30 - 20
    if the mouseV > the locV of sprite 30 and the locV of sprite 30 < 300 then set the locV of sprite 30 = the locV of sprite 30 + 20

    abort
  end if

  if the locV of sprite 30 < 270 then
    set the locV of sprite 30 = the locV of sprite 30 + 20
    abort
  end if


  if the mouseV < 270 or the mouseH > the locH of sprite 30 - 20 and the mouseH < the locH of sprite 30 + 20 then
    if heading = 1 then set the member of sprite 30 = "Left"
    if heading = 2 then set the member of sprite 30 = "Right"
    set move = 0
  end if

  if the mouseH > the locH of sprite 30 + 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Right"
    set heading = 2
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 + 15
  end if

  if the mouseH < the locH of sprite 30 - 19 and the mouseV > 270 then
    set the member of sprite 30 = "Walk Left"
    set heading = 1
    set move = 1
    set the locH of sprite 30 = the locH of sprite 30 - 15
  end if

  if the mouseV > the locV of sprite 30 and the mouseV < the locV of sprite 30 + 50 then
    if move = 0 and heading = 1 then set the member of sprite 30 = "Left"
    if move = 0 and heading = 2 then set the member of sprite 30 = "Right"
    set updown = 0
  end if

  if the mouseV < the locV of sprite 30 then
    if the locV of sprite 30 > 300 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 - 5
      set updown = 1
    end if
  end if

  if the mouseV > the locV of sprite 30 + 50 then
    if the locV of sprite 30 < 350 then
      if move = 0 and heading = 1 then set the member of sprite 30 = "Walk Left"
      if move = 0 and heading = 2 then set the member of sprite 30 = "Walk Right"
      set the locV of sprite 30 = the locV of sprite 30 + 5
      set updown = 1
    end if
  end if

  if the locH of sprite 30 > 500 then
    if updown = 0 then set the member of sprite 30 = "Right"
    set the locH of sprite 30 = 500
  end if

  if the locH of sprite 30 < 100 then
    if updown = 0 then set the member of sprite 30 = "Left"
    set the locH of sprite 30 = 100
  end if
end

on rightMouseDown
  global silly
  global heading
  global CStop
  if CStop = 1 then abort
  set silly = 1
end

on rightMouseUp
  global silly
  global heading
  set silly = 0
  set the member of sprite 30 = "Right"
end

on exitFrame
  if SoundBusy(1) then go the frame
end